home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
WINPROGS
/
WTJ208.ZIP
/
STOMPER
/
BUGFORM.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1993-05-10
|
5KB
|
167 lines
BugForm
Add New Bug
Form15
DateIn
MaskEdBox
dd-mmm-yy(
Status
Complete
NewBugTitle
AddBugBtn
Cancel
AddBugBtn
Accept
Label4
Status:
Date In:
BugNumber
Bug Number:
Label2
Bug Title:
AddProjBtn_Click
Index"
Form_Load
NewProjName
DataSourceJ
DataField
NewProjName_Changea
ProjNumber+
NewProjectName
SetRec
NewProj
WindowState
NORMAL^
EditMode
AddingV
Deleting
Editing
ProjList
ListIndex
ProjNum
ProjForm
IntMid
FillProjList
CheckBlank
CurRec
FindRec
CurrRec
FixList
ListCount
ListPos
bugtb
BugList
BugForm9
NewBugNameH
NewBugTitle
NewBugTitle_Changek
BugNumber
NewBugDateIn
NewBugStates
dsort
DateIn
Status
Value$
AddBugBtn_Click
FixBugList
ProjNo
FillBugRec
BugTitle
BugNumber_Click
Date_Click
DateIn_ValidationError
InvalidText
StartPosition
AddBugBtn_Click
Save list position
Add,Edit or Delete?
In Add Mode
Cancel or Save pressed?
Save pressed
Ensure data in the field
Open a new record
ProjNum
Project Number
BugNum
Move new bug numbere
BugTitle
Move bug nameo
DateIn
Move date valuee
If Box checked
Status
Save -1 (True)
Status
Save 0 (False)
Set the new record
Go to bottom of the list
Empty, refill & set highlight
Cancel pressed
Add Cancelled
End Cancel or Save Button IndexE
In Edit Mode
Cancel or Save pressed?
Save pressed
Ensure data in the field
ProjNum
Project Number
BugNum
Save record number
BugTitle
Set new bug name
DateIn
Set date recorded
When box checked
Status
Save -1 (True)
Status
Save 0 (False)
Set the record
Empty, refill & set highlight
Cancel pressed
Edit Cancelled
Inform usere
End Cancel or Save Button IndexE
In Delete mode
Cancel or Save pressed?
Save pressed
Save spot in list
delete current record'
Empty, refill & set highlight
Cancel pressed
Delete Cancelled
Inform usern
End Cancel or Save Button IndexE
End EditMode
Exit record maintenance mode
Leave
For a blank record
Must Provide Project Name
Warn userr
Reset cursor
Leaveo
Go back to this proc
Form_Load
Enable SetFocus in Load
Act on type of editing
Adding a bug
Error processort
Go to bottom of list
BugNum
increment bug counterr
Bug Number:
Show new bug number
Activate cursor on title
Go to keyboard
Deleting a bug
[BugNum] =
Fill the lista
Changing a bug
[BugNum] =
Display record contents
Activate cursor on title
Go to edit mode
When no records in datat
Start at first bug
Warn user of error
Keep on in this proc